home *** CD-ROM | disk | FTP | other *** search
/ Stripper Nurses / Stripper Nurses.iso / mac / PL1 / NURSE.INF < prev    next >
Text File  |  1995-04-05  |  4KB  |  155 lines
  1. ;;********************************************************************
  2. ;; Install of Stripper Nurses software for windows
  3. ;;********************************************************************
  4.  
  5. DefineVariables
  6.   
  7.   Text    [CompanyName] := Plush Interactive
  8.   Text    [ProductName] := Stripper Nurses
  9.   Text    [ProductName1] := Install QuickTime 2.0  
  10.   Text    [ProductName2] := Uninstall QuickTime 2.0
  11.   Text      [TopLine]    := " INSTALLING [ProductName]  "
  12.  
  13.   Text      [ExpressSetupDescription]    := Install Stripper Nurses
  14.  
  15.   
  16.   Text    [LogoBitMap]  := Plush.BMP    
  17.   Text    [ReadFile]    := PLUSH.WRI             
  18.   Text    [ReadCmdLine] := write.exe
  19.   Text    [ReadPath]
  20.   Text    [IconFile]    := Plush.ICO
  21.   Text    [IconPath]    
  22.   Text    [ProgFile]    := Nurses.EXE
  23.   Text    [ProgPath]
  24.   Text    [ProgFile1]   := SETUP.EXE
  25.   Text    [ProgPath1]
  26.   Text    [ProgFile2]   := UNQTWP.EXE
  27.   Text    [ProgPath2]
  28.  
  29. EndDefineVariables
  30.   
  31.  
  32.  
  33. ;; Setup logo and screen
  34. SetDefaultBitmap off
  35. LoadBitMap 1 [LogoBitMap]
  36. ShowBitMap 1 @xy(420,320)
  37. SetBackgroundColor 0 0 255 0 0 64 TopToBottom
  38. ShowWindow Maximized
  39.  
  40.  
  41. Dialog
  42.   
  43. Installation of "[ProductName]" is completely non-invasive. 
  44. A new icon and/or program group, "[CompanyName]", will be 
  45. created in your program manager.
  46.  
  47. Please press "OK" to proceed with "[ProductName]" installation.
  48.  
  49. EndDialog
  50.  
  51. Dialog WhiteOnBlue
  52.  
  53. **********************WARNING**********************
  54.  
  55. QuickTime ver. 1.0 and ver. 2.0 are incompatible.
  56. For your convenience you may install or un-install 
  57. QuickTime ver. 2.0 from the "PLUSH Interactive" Program Group.
  58.  
  59. Please press "OK" to proceed with "[ProductName]" installation.
  60.  
  61. EndDialog
  62.  
  63. CreateDirectoryIfNecessary C:\PLUSH
  64.  
  65. If FileExists C:\PLUSH\UNQTWP.EXE
  66. SetFileAttrTo 00 for c:\PLUSH\UNQTWP.EXE
  67. SetFileAttrTo 00 for c:\PLUSH\UNQTWP.INF
  68. SetFileAttrTo 00 for c:\PLUSH\PLUSH.BMP
  69. EndIf
  70.  
  71. DeleteFiles from C:\PLUSH Quietly
  72.  UNQTWP.*
  73.  PLUSH.BMP
  74. EndDeleteFiles
  75.  
  76. CopyFiles from [InstallFromDrive]:\PL1 to C:\PLUSH quietly
  77. UNQTWP.EX_
  78. UNQTWP.IN_
  79. PLUSH.BMP
  80. EndCopyFiles
  81.  
  82. SetFileAttrTo 00 for C:\PLUSH\UNQTWP.EX_
  83. SetFileAttrTo 00 for C:\PLUSH\UNQTWP.IN_
  84. SetFileAttrTo 00 for C:\PLUSH\PLUSH.BMP
  85.  
  86. RenameFile C:\PLUSH\UNQTWP.EX_ to unqtwp.exe
  87. RenameFile C:\PLUSH\UNQTWP.IN_ to UNQTWP.INF
  88.  
  89.  
  90. ;;**************************************************
  91. ;;Find the files for the program and icons
  92. ;;**************************************************
  93. [IconPath] := FullPathTo [IconFile] Search AllFixed
  94. [ProgPath]  := FullPathTo [ProgFile] Search AllFixed
  95. [ReadPath]  := FullPathTo [ReadFile] Search AllFixed
  96. [ProgPath1]  := FullPathTo [ProgFile1] Search AllFixed
  97. [ProgPath2]  := FullPathTo [ProgFile2] Search AllFixed
  98.  
  99.  
  100. ;;**************************************************
  101. ;; Create the windows program group.
  102. ;;**************************************************
  103. ProgramManagerDDe
  104.   CreateGroup([CompanyName])
  105.   ReplaceItem([CompanyName])
  106.   DeleteItem([ProductName])
  107.   AddItem([ProgPath],[ProductName],[IconPath])
  108.   DeleteItem([ProductName1])
  109.   AddItem([ProgPath1],[ProductName1])
  110.   DeleteItem([ProductName2])  
  111.   AddItem([ProgPath2],[ProductName2])
  112.   DeleteItem([ReadFile])  
  113.   AddItem([ReadPath],[ReadFile])
  114. EndProgramManagerDDE
  115.  
  116.  
  117.  
  118.  
  119. ;; Exit dialog box and messages
  120. Dialog
  121.   [ProductName] installation is complete.
  122.   Enjoy!
  123. EndDialog
  124.  
  125.  Dialog PressAKey WhiteOnBrown
  126.  
  127.     Thanks again and best wishes.  You'll find new
  128.     information in file PLUSHREAD.WRI
  129.  
  130.   EndDialog
  131.  
  132.  
  133. Procedure DDENonFatalErrorTrap
  134. ;; Purpose of DDENonFatalErrorTrap:
  135. ;; If a procedure with this name is present in the script and a non-fatal
  136. ;; Program Manager DDE error occurs, then this procedure will be executed.
  137. ;; 
  138. ;; Possible Text Error Codes Are:
  139. ;;      ddeExec%s failed      (NOTE:  the "%s" is replaced by error types)
  140. ;;      ddeInitiate failed
  141. ;;      pmAddItem failed
  142. ;;      pmClose failed
  143. ;;      pmCreateGroup failed
  144. ;;
  145. ;; To trap a DDENonFatalError and respond to it, use the following code
  146. ;; [Number1] := PositionOf "PMAddItem" in DDENonFatalError
  147. ;; If [Number1] > 0 
  148. ;;    Dialog
  149. ;;      NonFatal error in AddItem occurred
  150. ;;      Error Text : DDENonFatalError
  151. ;;    EndDialog
  152. EndProcedure
  153.  
  154. EndScript
  155.